10 CLS:PRINT "Extension of Vectors Program:":CLS:SET N
20 PRINT "x1 =";vx1;:INPUT vx1:PRINT "y1 =";vy1;:INPUT vy1:CLS
30 PRINT "x1 =";vx1;TAB(16);"y1 =";vy1;TAB(32);"z1 =";vz1;:INPUT vz1:CLS
40 PRINT "x2 =";vx2;:INPUT vx2:PRINT "y2 =";vy2;:INPUT vy2:CLS
50 PRINT "x2 =";vx2;TAB(16);"y2 =";vy2;TAB(32);"z2 =";vz2;:INPUT vz2:CLS
60 PRINT "Extension =";v23;:INPUT v23:CLS:PRINT "Wait...";
70 vx12=vx2-vx1:vy12=vy2-vy1:vz12=vz2-vz1
80 v12=SQR(vx12^2+vy12^2+vz12^2)
90 vx3=vx2+((vx12/v12)*v23)
100 vy3=vy2+((vy12/v12)*v23)
110 vz3=vz2+((vz12/v12)*v23)
120 CLS:BEEP 0:PRINT "x3: ";ROUND(vx3,-4);TAB(16);"y3: ";ROUND(vy3,-4);TAB(32);"z3: ";ROUND(vz3,-4);TAB(47);"1-2: ";ROUND(v12,-4)
130 CLS:GOTO 20